home *** CD-ROM | disk | FTP | other *** search
/ Especial Multimedia / Especial Multimedia.iso / Multimed / Prg / IMAGELIB.ZIP / MIMAGE.ZIP / DLL20LIN.INT < prev    next >
Text File  |  1995-07-28  |  10KB  |  259 lines
  1. {$X+}
  2. Unit DLL20LIN;
  3.  
  4. {Copyright Jan Dekkers / Kevin Adams}
  5.  
  6. interface
  7.  
  8. uses
  9.   WinTypes, Graphics, SYSUtils, Dialogs;
  10.  
  11.  
  12. type
  13.  TCallBackFunction = procedure(i:integer);
  14.  
  15. {interface call}
  16. Function jpgfile(filename          : String;
  17.                  resolution        : integer;
  18.                  option            : integer;
  19.             var  Bitmap            : TBitmap;
  20.            CallBackFunction        : TCallBackFunction) : Boolean;
  21.  
  22. {interface call}
  23. Function putjpgfile(filename       : String;
  24.                     quality        : integer;
  25.                     smooth         : integer;
  26.                     Bitmap         : TBitmap;
  27.              CallBackFunction      : TCallBackFunction) : Boolean;
  28.  
  29.  
  30. {interface call}
  31. Function putbmpfile(filename       : String;
  32.                     Bitmap         : TBitmap;
  33.              CallBackFunction      : TCallBackFunction) : Boolean;
  34.  
  35.  
  36. {interface call}
  37. Function giffile(filename          : string;
  38.             var  Bitmap            : TBitmap;
  39.          CallBackFunction          : TCallBackFunction) : Boolean;
  40.  
  41.  
  42. {interface call}
  43. Function bmpfile(filename          : string;
  44.             var  Bitmap            : TBitmap;
  45.          CallBackFunction          : TCallBackFunction) : Boolean;
  46.  
  47. {interface call}
  48. Function pcxfile(filename          : string;
  49.             var  Bitmap            : TBitmap;
  50.          CallBackFunction          : TCallBackFunction) : Boolean;
  51.  
  52. {interface call}
  53. Function jpgblob(filePoint         : Pointer;
  54.                   Size             : LongInt;
  55.                   resolution       : integer;
  56.                   option           : integer;
  57.              var  Bitmap           : TBitmap;
  58.             CallBackFunction       : TCallBackFunction): Boolean;
  59.  
  60. {interface call}
  61. Function  gifblob(filePoint        : Pointer;
  62.                   Size             : LongInt;
  63.              var  Bitmap           : TBitmap;
  64.             CallBackFunction       : TCallBackFunction): Boolean;
  65.  
  66. {interface call}
  67. Function  pcxblob(filePoint        : Pointer;
  68.                   Size             : LongInt;
  69.              var  Bitmap           : TBitmap;
  70.             CallBackFunction       : TCallBackFunction): Boolean;
  71.  
  72. {interface call}
  73. Function  bmpblob(filePoint        : Pointer;
  74.                   Size             : LongInt;
  75.              var  Bitmap           : TBitmap;
  76.             CallBackFunction       : TCallBackFunction): Boolean;
  77.  
  78. {interface call}
  79. Function putjpgblob(filePoint      : Pointer;
  80.                      var Size      : LongInt;
  81.                       quality      : integer;
  82.                        smooth      : integer;
  83.                        Bitmap      : TBitmap;
  84.              CallBackFunction      : TCallBackFunction) : Boolean;
  85.  
  86. {interface call}
  87. Function putbmpblob(filePoint      : Pointer;
  88.                      var Size      : LongInt;
  89.                        Bitmap      : TBitmap;
  90.              CallBackFunction      : TCallBackFunction) : Boolean;
  91.  
  92. {interface call}
  93. Function GetBlobInfo(filePoint     : Pointer;
  94.                      Size          : LongInt;
  95.                  var FileType      : String;
  96.                  var Fwidth        : Integer;
  97.                  var FHeight       : Integer;
  98.                  var Fbitspixel    : Integer;
  99.                  var Fplanes       : Integer;
  100.                  var Fnumcolors    : Integer;
  101.                  var Fcompression  : String) : Boolean;
  102.  
  103.  
  104. {interface call}
  105. Function GetFileInfo(fileName      : String;
  106.                  var FileType      : String;
  107.                  var Fwidth        : Integer;
  108.                  var FHeight       : Integer;
  109.                  var Fbitspixel    : Integer;
  110.                  var Fplanes       : Integer;
  111.                  var Fnumcolors    : Integer;
  112.                  var Fcompression  : String) : Boolean;
  113.  
  114. {DLL call}
  115. Function readjpgstream(filePoint   : Pointer;
  116.                        Size        : LongInt;
  117.                        resolution  : integer;
  118.                        scale       : integer;
  119.                        option      : integer;
  120.                        password    : integer;
  121.                    var hBmp        : HBitmap;
  122.                    var hPal        : HPalette;
  123.                    CallBackFunction: TCallBackFunction) : byte; Far;
  124.  
  125. {DLL call}
  126. Function readjpgfile(filename      : pchar;
  127.                      resolution    : integer;
  128.                      scale         : integer;
  129.                      option        : integer;
  130.                      password      : integer;
  131.                  var hBmp          : HBitmap;
  132.                  var hPal          : HPalette;
  133.                  CallBackFunction  : TCallBackFunction) : byte; Far;
  134.  
  135. {DLL call}
  136. Function writejpgfile(filename     : pchar;
  137.                       quality      : integer;
  138.                       smooth       : integer;
  139.                       password     : integer;
  140.                       hBmp         : HBitmap;
  141.                       hPal         : HPalette;
  142.               CallBackFunction     : TCallBackFunction) : byte; Far;
  143.  
  144.  
  145. {DLL call}
  146. Function writebmpfile(filename     : pchar;
  147.                       password     : integer;
  148.                       hBmp         : HBitmap;
  149.                       hPal         : HPalette;
  150.               CallBackFunction     : TCallBackFunction) : byte; Far;
  151.  
  152.  
  153. {DLL call}
  154. Function readgiffile(filename      : pchar;
  155.                      password      : integer;
  156.                  var hBmp          : HBitmap;
  157.                  var hPal          : HPalette;
  158.                  CallBackFunction  : TCallBackFunction) : byte; Far;
  159.  
  160. {DLL call}
  161. Function readbmpfile(filename      : pchar;
  162.                      password      : integer;
  163.                  var hBmp          : HBitmap;
  164.                  var hPal          : HPalette;
  165.                  CallBackFunction  : TCallBackFunction) : byte; Far;
  166.  
  167.  
  168. {DLL call}
  169. Function readpcxfile(filename      : pchar;
  170.                      password      : integer;
  171.                  var hBmp          : HBitmap;
  172.                  var hPal          : HPalette;
  173.                  CallBackFunction  : TCallBackFunction) : byte; Far;
  174.  
  175. {DLL call}
  176. Function readpcxstream(filePoint   : Pointer;
  177.                        Size        : LongInt;
  178.                        password    : integer;
  179.                    var hBmp        : HBitmap;
  180.                    var hPal        : HPalette;
  181.                    CallBackFunction: TCallBackFunction) : byte; Far;
  182.  
  183. {DLL call}
  184. Function readbmpstream(filePoint   : Pointer;
  185.                        Size        : LongInt;
  186.                        password    : integer;
  187.                    var hBmp        : HBitmap;
  188.                    var hPal        : HPalette;
  189.                    CallBackFunction: TCallBackFunction) : byte; Far;
  190.  
  191. {DLL call}
  192. Function readgifstream(filePoint   : Pointer;
  193.                        Size        : LongInt;
  194.                        password    : integer;
  195.                    var hBmp        : HBitmap;
  196.                    var hPal        : HPalette;
  197.                    CallBackFunction: TCallBackFunction) : byte; Far;
  198.  
  199. {DLL call}
  200. Function streaminfo(filePoint      : Pointer;
  201.                     Size           : LongInt;
  202.                     FileType       : PChar;
  203.                 var Fwidth         : Integer;
  204.                 var FHeight        : Integer;
  205.                 var Fbitspixel     : Integer;
  206.                 var Fplanes        : Integer;
  207.                 var Fnumcolors     : Integer;
  208.                     Fcompression   : PChar) : byte; Far;
  209.  
  210.  
  211. {DLL call}
  212. Function   fileinfo(filename       : PChar;
  213.                     FileType       : PChar;
  214.                 var Fwidth         : Integer;
  215.                 var FHeight        : Integer;
  216.                 var Fbitspixel     : Integer;
  217.                 var Fplanes        : Integer;
  218.                 var Fnumcolors     : Integer;
  219.                     Fcompression   : PChar) : byte; Far;
  220.  
  221.  
  222. {DLL call}
  223. Function writejpegstream(filePoint : Pointer;
  224.                      var Size      : LongInt;
  225.                          quality   : integer;
  226.                          smooth    : integer;
  227.                          password  : integer;
  228.                          hBmp      : HBitmap;
  229.                          hPal      : HPalette;
  230.                   CallBackFunction : TCallBackFunction) : byte; Far;
  231.  
  232. {DLL call}
  233. Function  writebmpstream(filePoint : Pointer;
  234.                      var Size      : LongInt;
  235.                          password  : integer;
  236.                          hBmp      : HBitmap;
  237.                          hPal      : HPalette;
  238.                   CallBackFunction : TCallBackFunction) : byte; Far;
  239.  
  240.  
  241. implementation
  242.  
  243.  
  244. Function readjpgfile;      external 'IMGLIB20' index 2;
  245. Function writejpgfile;     external 'IMGLIB20' index 3;
  246. Function readgiffile;      external 'IMGLIB20' index 4;
  247. Function readpcxfile;      external 'IMGLIB20' index 5;
  248. function fileinfo;         external 'IMGLIB20' index 6;
  249. Function readbmpfile;      external 'IMGLIB20' index 7;
  250. Function writebmpfile;     external 'IMGLIB20' index 8;
  251. Function readjpgstream;    external 'IMGLIB20' index 9;
  252. Function readpcxstream;    external 'IMGLIB20' index 10;
  253. Function readgifstream;    external 'IMGLIB20' index 11;
  254. Function writejpegstream;  external 'IMGLIB20' index 12;
  255. Function streaminfo;       external 'IMGLIB20' index 13;
  256. Function readbmpstream;    external 'IMGLIB20' index 14;
  257. Function writebmpstream;   external 'IMGLIB20' index 15;
  258.  
  259.